/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / 3270XCMD / TNSendStr.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 54 4e 53 65 6e 64 | 53 74 72 2e 63 00 00 00 |..TNSend|Str.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 db 00 | 00 01 7e a1 18 db de a1 |........|..~.....|
|00000060| 18 db de 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b2 d2 00 00 |........|........|
|00000080| 2f 2a 20 54 4e 43 6f 6e | 6e 65 63 74 2e 63 20 2d |/* TNCon|nect.c -|
|00000090| 2d 20 58 43 4d 44 20 74 | 6f 20 6f 70 65 6e 20 74 |- XCMD t|o open t|
|000000a0| 68 65 20 54 4e 33 32 37 | 30 20 64 72 69 76 65 72 |he TN327|0 driver|
|000000b0| 20 0d 09 63 6f 70 79 72 | 69 67 68 74 20 31 39 38 | ..copyr|ight 198|
|000000c0| 39 20 43 6f 72 6e 65 6c | 6c 20 55 6e 69 76 65 72 |9 Cornel|l Univer|
|000000d0| 73 69 74 79 20 0d 09 0d | 09 54 4e 43 6f 6e 6e 65 |sity ...|.TNConne|
|000000e0| 63 74 20 68 6f 73 74 69 | 64 3a 20 20 43 6f 6e 6e |ct hosti|d:  Conn|
|000000f0| 65 63 74 20 74 6f 20 61 | 20 68 6f 73 74 2e 0d 0d |ect to a| host...|
|00000100| 2a 2f 0d 0d 0d 23 69 6e | 63 6c 75 64 65 20 3c 54 |*/...#in|clude <T|
|00000110| 79 70 65 73 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |ypes.h>.|#include|
|00000120| 20 3c 4d 65 6d 6f 72 79 | 2e 68 3e 0d 23 69 6e 63 | <Memory|.h>.#inc|
|00000130| 6c 75 64 65 20 3c 44 65 | 76 69 63 65 73 2e 68 3e |lude <De|vices.h>|
|00000140| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 48 79 70 65 72 |.#includ|e <Hyper|
|00000150| 58 43 6d 64 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |XCmd.h>.|#include|
|00000160| 20 3c 45 72 72 6f 72 73 | 2e 68 3e 0d 0d 23 69 6e | <Errors|.h>..#in|
|00000170| 63 6c 75 64 65 20 3c 53 | 74 72 69 6e 67 2e 68 3e |clude <S|tring.h>|
|00000180| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 54 4e 64 72 |..#inclu|de "TNdr|
|00000190| 76 72 2e 68 22 0d 0d 0d | 70 61 73 63 61 6c 20 76 |vr.h"...|pascal v|
|000001a0| 6f 69 64 20 64 65 62 75 | 67 67 65 72 28 29 09 65 |oid debu|gger().e|
|000001b0| 78 74 65 72 6e 20 30 78 | 41 39 46 46 3b 20 20 20 |xtern 0x|A9FF;   |
|000001c0| 0d 0d 0d 70 61 73 63 61 | 6c 20 76 6f 69 64 20 54 |...pasca|l void T|
|000001d0| 4e 53 65 6e 64 53 74 72 | 28 68 79 63 70 29 0d 58 |NSendStr|(hycp).X|
|000001e0| 43 6d 64 50 74 72 20 68 | 79 63 70 3b 0d 7b 0d 09 |CmdPtr h|ycp;.{..|
|000001f0| 43 6e 74 72 6c 50 61 72 | 61 6d 20 64 72 76 70 62 |CntrlPar|am drvpb|
|00000200| 3b 0d 09 6c 6f 6e 67 20 | 2a 20 61 72 67 73 3b 0d |;..long |* args;.|
|00000210| 09 53 74 72 32 35 35 20 | 70 73 74 72 3b 0d 09 0d |.Str255 |pstr;...|
|00000220| 09 69 66 20 28 68 79 63 | 70 2d 3e 70 61 72 61 6d |.if (hyc|p->param|
|00000230| 43 6f 75 6e 74 20 21 3d | 20 32 29 20 7b 0d 09 09 |Count !=| 2) {...|
|00000240| 73 65 74 68 61 6e 64 28 | 26 68 79 63 70 2d 3e 72 |sethand(|&hycp->r|
|00000250| 65 74 75 72 6e 56 61 6c | 75 65 2c 20 22 54 4e 53 |eturnVal|ue, "TNS|
|00000260| 65 6e 64 53 74 72 20 54 | 4e 49 44 2c 73 74 72 69 |endStr T|NID,stri|
|00000270| 6e 67 3a 20 6e 65 65 64 | 20 32 20 61 72 67 75 6d |ng: need| 2 argum|
|00000280| 65 6e 74 73 22 29 3b 0d | 09 09 72 65 74 75 72 6e |ents");.|..return|
|00000290| 3b 0d 09 7d 0d 09 0d 09 | 48 4c 6f 63 6b 28 28 48 |;..}....|HLock((H|
|000002a0| 61 6e 64 6c 65 29 20 68 | 79 63 70 2d 3e 70 61 72 |andle) h|ycp->par|
|000002b0| 61 6d 73 5b 30 5d 29 3b | 0d 09 48 4c 6f 63 6b 28 |ams[0]);|..HLock(|
|000002c0| 28 48 61 6e 64 6c 65 29 | 20 68 79 63 70 2d 3e 70 |(Handle)| hycp->p|
|000002d0| 61 72 61 6d 73 5b 31 5d | 29 3b 0d 09 0d 09 5a 65 |arams[1]|);....Ze|
|000002e0| 72 6f 54 6f 50 61 73 28 | 68 79 63 70 2c 20 2a 68 |roToPas(|hycp, *h|
|000002f0| 79 63 70 2d 3e 70 61 72 | 61 6d 73 5b 30 5d 2c 20 |ycp->par|ams[0], |
|00000300| 28 53 74 72 69 6e 67 50 | 74 72 29 20 26 70 73 74 |(StringP|tr) &pst|
|00000310| 72 5b 30 5d 29 3b 0d 09 | 64 72 76 70 62 2e 69 6f |r[0]);..|drvpb.io|
|00000320| 43 52 65 66 4e 75 6d 20 | 3d 20 28 73 68 6f 72 74 |CRefNum |= (short|
|00000330| 29 20 53 74 72 54 6f 4e | 75 6d 28 68 79 63 70 2c |) StrToN|um(hycp,|
|00000340| 20 28 53 74 72 33 31 20 | 2a 29 20 26 70 73 74 72 | (Str31 |*) &pstr|
|00000350| 5b 30 5d 29 3b 0d 09 64 | 72 76 70 62 2e 63 73 43 |[0]);..d|rvpb.csC|
|00000360| 6f 64 65 20 3d 20 48 54 | 4e 5f 53 45 4e 44 53 54 |ode = HT|N_SENDST|
|00000370| 52 3b 0d 09 61 72 67 73 | 20 3d 20 28 6c 6f 6e 67 |R;..args| = (long|
|00000380| 20 2a 29 20 26 64 72 76 | 70 62 2e 63 73 50 61 72 | *) &drv|pb.csPar|
|00000390| 61 6d 5b 30 5d 3b 0d 09 | 2a 61 72 67 73 20 3d 20 |am[0];..|*args = |
|000003a0| 2a 20 28 6c 6f 6e 67 20 | 2a 29 20 68 79 63 70 2d |* (long |*) hycp-|
|000003b0| 3e 70 61 72 61 6d 73 5b | 31 5d 3b 0d 09 09 2f 2a |>params[|1];.../*|
|000003c0| 20 70 61 73 73 20 74 68 | 65 20 73 74 72 69 6e 67 | pass th|e string|
|000003d0| 20 2a 20 74 6f 20 74 68 | 65 20 64 72 76 72 20 74 | * to th|e drvr t|
|000003e0| 6f 20 70 61 73 73 20 6f | 6e 20 74 6f 20 54 4e 33 |o pass o|n to TN3|
|000003f0| 32 37 30 20 2a 2f 0d 09 | 50 42 43 6f 6e 74 72 6f |270 */..|PBContro|
|00000400| 6c 28 28 50 61 72 6d 42 | 6c 6b 50 74 72 29 20 26 |l((ParmB|lkPtr) &|
|00000410| 64 72 76 70 62 2c 20 28 | 42 6f 6f 6c 65 61 6e 29 |drvpb, (|Boolean)|
|00000420| 20 30 29 3b 0d 0d 09 69 | 66 20 28 64 72 76 70 62 | 0);...i|f (drvpb|
|00000430| 2e 69 6f 52 65 73 75 6c | 74 29 20 7b 0d 09 09 2f |.ioResul|t) {.../|
|00000440| 2a 20 63 6f 6e 6e 65 63 | 74 20 63 61 6c 6c 20 66 |* connec|t call f|
|00000450| 61 69 6c 65 64 20 2a 2f | 0d 09 09 73 77 69 74 63 |ailed */|...switc|
|00000460| 68 20 28 64 72 76 70 62 | 2e 69 6f 52 65 73 75 6c |h (drvpb|.ioResul|
|00000470| 74 29 20 7b 0d 09 09 09 | 63 61 73 65 20 48 54 4e |t) {....|case HTN|
|00000480| 52 5f 4e 4f 54 4e 3a 20 | 7b 0d 09 09 09 09 73 65 |R_NOTN: |{.....se|
|00000490| 74 68 61 6e 64 28 26 68 | 79 63 70 2d 3e 72 65 74 |thand(&h|ycp->ret|
|000004a0| 75 72 6e 56 61 6c 75 65 | 2c 20 22 54 4e 20 69 73 |urnValue|, "TN is|
|000004b0| 20 6e 6f 74 20 72 75 6e | 6e 69 6e 67 22 29 3b 0d | not run|ning");.|
|000004c0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 7d 0d |....brea|k;....}.|
|000004d0| 09 09 09 63 61 73 65 20 | 48 54 4e 52 5f 41 43 54 |...case |HTNR_ACT|
|000004e0| 49 56 45 3a 20 7b 0d 09 | 09 09 09 73 65 74 68 61 |IVE: {..|...setha|
|000004f0| 6e 64 28 26 68 79 63 70 | 2d 3e 72 65 74 75 72 6e |nd(&hycp|->return|
|00000500| 56 61 6c 75 65 2c 20 22 | 54 4e 20 6e 6f 74 20 6f |Value, "|TN not o|
|00000510| 70 65 6e 65 64 22 29 3b | 0d 09 09 09 09 62 72 65 |pened");|.....bre|
|00000520| 61 6b 3b 0d 09 09 09 7d | 0d 09 09 09 63 61 73 65 |ak;....}|....case|
|00000530| 20 48 54 4e 52 5f 4f 50 | 45 4e 3a 20 7b 0d 09 09 | HTNR_OP|EN: {...|
|00000540| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|00000550| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 54 |>returnV|alue, "T|
|00000560| 4e 20 68 61 73 20 6e 6f | 20 63 6f 6e 6e 65 63 74 |N has no| connect|
|00000570| 69 6f 6e 22 29 3b 0d 09 | 09 09 09 62 72 65 61 6b |ion");..|...break|
|00000580| 3b 0d 09 09 09 7d 0d 09 | 09 09 63 61 73 65 20 62 |;....}..|..case b|
|00000590| 61 64 55 6e 69 74 45 72 | 72 3a 20 7b 0d 09 09 09 |adUnitEr|r: {....|
|000005a0| 09 73 65 74 68 61 6e 64 | 28 26 68 79 63 70 2d 3e |.sethand|(&hycp->|
|000005b0| 72 65 74 75 72 6e 56 61 | 6c 75 65 2c 20 22 54 4e |returnVa|lue, "TN|
|000005c0| 49 44 20 69 73 20 69 6e | 63 6f 72 72 65 63 74 22 |ID is in|correct"|
|000005d0| 29 3b 0d 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |);.....b|reak;...|
|000005e0| 09 7d 0d 09 09 09 64 65 | 66 61 75 6c 74 3a 20 7b |.}....de|fault: {|
|000005f0| 0d 09 09 09 09 73 65 74 | 68 61 6e 64 28 26 68 79 |.....set|hand(&hy|
|00000600| 63 70 2d 3e 72 65 74 75 | 72 6e 56 61 6c 75 65 2c |cp->retu|rnValue,|
|00000610| 20 22 55 6e 6b 6e 6f 77 | 6e 20 65 72 72 6f 72 22 | "Unknow|n error"|
|00000620| 29 3b 0d 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |);.....b|reak;...|
|00000630| 09 7d 0d 09 09 7d 0d 09 | 7d 0d 09 48 55 6e 6c 6f |.}...}..|}..HUnlo|
|00000640| 63 6b 28 28 48 61 6e 64 | 6c 65 29 20 68 79 63 70 |ck((Hand|le) hycp|
|00000650| 2d 3e 70 61 72 61 6d 73 | 5b 30 5d 29 3b 0d 09 48 |->params|[0]);..H|
|00000660| 55 6e 6c 6f 63 6b 28 28 | 48 61 6e 64 6c 65 29 20 |Unlock((|Handle) |
|00000670| 68 79 63 70 2d 3e 70 61 | 72 61 6d 73 5b 31 5d 29 |hycp->pa|rams[1])|
|00000680| 3b 0d 0d 7d 0d 0d 0d 73 | 65 74 68 61 6e 64 28 74 |;..}...s|ethand(t|
|00000690| 68 61 6e 64 2c 20 73 74 | 72 29 0d 48 61 6e 64 6c |hand, st|r).Handl|
|000006a0| 65 20 2a 20 74 68 61 6e | 64 3b 0d 63 68 61 72 20 |e * than|d;.char |
|000006b0| 2a 20 73 74 72 3b 0d 7b | 0d 09 69 66 20 28 2a 74 |* str;.{|..if (*t|
|000006c0| 68 61 6e 64 20 3d 3d 20 | 4e 55 4c 4c 29 20 7b 0d |hand == |NULL) {.|
|000006d0| 09 09 2a 74 68 61 6e 64 | 20 3d 20 4e 65 77 48 61 |..*thand| = NewHa|
|000006e0| 6e 64 6c 65 28 28 53 69 | 7a 65 29 20 30 29 3b 0d |ndle((Si|ze) 0);.|
|000006f0| 09 7d 0d 09 53 65 74 48 | 61 6e 64 6c 65 53 69 7a |.}..SetH|andleSiz|
|00000700| 65 28 2a 74 68 61 6e 64 | 2c 20 28 6c 6f 6e 67 29 |e(*thand|, (long)|
|00000710| 20 28 73 74 72 6c 65 6e | 28 73 74 72 29 20 2b 20 | (strlen|(str) + |
|00000720| 31 29 29 3b 0d 09 73 74 | 72 63 70 79 28 2a 2a 74 |1));..st|rcpy(**t|
|00000730| 68 61 6e 64 2c 20 73 74 | 72 29 3b 0d 7d 0d 0d 0d |hand, st|r);.}...|
|00000740| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 3c 58 43 6d 64 |..#inclu|de <XCmd|
|00000750| 47 6c 75 65 2e 69 6e 63 | 2e 63 3e 00 00 00 00 00 |Glue.inc|.c>.....|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000790| 00 00 07 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 0b 54 4e 53 65 6e 64 53 | 74 72 2e 63 02 00 00 00 |.TNSendS|tr.c....|
|000007c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000007d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a9 8d 3a 8b 00 00 | 00 00 00 00 01 7e 00 00 |....:...|.....~..|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 02 96 25 00 00 00 |........|....%...|
|00000810| 07 3c 0a 41 70 70 6c 65 | 53 68 61 72 65 00 00 00 |.<.Apple|Share...|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 02 97 25 00 | 00 00 07 3c 0e 43 6c 69 |......%.|...<.Cli|
|00000840| 70 62 6f 61 72 64 20 46 | 69 6c 65 00 00 00 00 00 |pboard F|ile.....|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 1f |........|........|
|00000860| 25 00 00 00 07 3c 06 63 | 6f 72 76 75 73 00 00 00 |%....<.c|orvus...|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 fa 00 00 |...H..Mo|naco....|
|00000890| 00 00 04 1c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 06 | 00 04 00 29 00 02 01 85 |........|...)....|
|000008b0| 02 02 00 29 00 02 01 85 | 02 02 a1 18 95 8e 00 00 |...)....|........|
|000008c0| 01 c0 00 00 01 c7 00 00 | 01 02 01 00 00 00 01 00 |........|........|
|000008d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 33 e8 ac |...L...L|...2.3..|
|000008e0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000008f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 35 20 50 00 00 |........|...5 P..|
+--------+-------------------------+-------------------------+--------+--------+